home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / Lists.p < prev    next >
MacBinary  |  1993-06-15  |  4.9 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Applause Picture (image/applausePicture) ext Unsupported
1% dexvert bsdiff patch (other/bsdiffPatch) ext Unsupported
1% dexvert imgdiff patch (other/imgdiffPatch) ext Unsupported
1% dexvert MATLAB p-code (other/matlabPCode) ext Unsupported
1% dexvert WSUS Patch Storage File (other/wsusPatchStorageFile) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Tue Jun 15 12:16:54 1993, modified Tue Jun 15 12:16:54 1993, creator 'MPS ', type ASCII, 4338 bytes "Lists.p" , at 0x1172 428 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 4c 69 73 74 73 2e | 70 00 00 00 00 00 00 00 |..Lists.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 10 f2 00 | 00 01 ac a8 43 a6 76 a8 |........|....C.v.|
|00000060| 43 a6 76 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.v.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 81 35 00 00 |........|.....5..|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 4c 69 | 73 74 73 2e 70 0d 3b 0d |File: Li|sts.p.;.|
|000000c0| 3b 0d 3b 20 43 6f 70 79 | 72 69 67 68 74 20 41 70 |;.; Copy|right Ap|
|000000d0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000000e0| 63 2e 20 31 39 38 36 2d | 39 31 0d 3b 20 41 6c 6c |c. 1986-|91.; All|
|000000f0| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|00000100| 0d 3b 0d 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;.*****|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 7d |********|*******}|
|00000130| 0d 0d 55 4e 49 54 20 4c | 49 53 54 53 3b 0d 49 4e |..UNIT L|ISTS;.IN|
|00000140| 54 45 52 46 41 43 45 0d | 55 53 45 53 20 54 59 50 |TERFACE.|USES TYP|
|00000150| 45 53 2c 51 55 49 43 4b | 44 52 41 57 2c 45 56 45 |ES,QUICK|DRAW,EVE|
|00000160| 4e 54 53 2c 43 4f 4e 54 | 52 4f 4c 53 3b 0d 43 4f |NTS,CONT|ROLS;.CO|
|00000170| 4e 53 54 0d 0d 7b 20 65 | 72 72 6f 72 20 63 6f 64 |NST..{ e|rror cod|
|00000180| 65 73 20 7d 0d 6c 69 73 | 74 52 65 6a 65 63 74 45 |es }.lis|tRejectE|
|00000190| 76 65 6e 74 20 3d 20 24 | 31 43 30 32 3b 0d 0d 7b |vent = $|1C02;..{|
|000001a0| 20 4c 69 73 74 54 79 70 | 65 20 4d 61 73 6b 73 20 | ListTyp|e Masks |
|000001b0| 7d 0d 63 53 74 72 69 6e | 67 20 3d 20 24 30 30 30 |}.cStrin|g = $000|
|000001c0| 31 3b 20 20 7b 20 6e 75 | 6c 6c 20 74 65 72 6d 69 |1;  { nu|ll termi|
|000001d0| 6e 61 74 65 64 20 73 74 | 72 69 6e 67 20 74 79 70 |nated st|ring typ|
|000001e0| 65 20 7d 0d 4c 49 53 54 | 5f 53 54 52 47 20 3d 20 |e }.LIST|_STRG = |
|000001f0| 24 30 30 30 31 3b 20 20 | 7b 20 6e 75 6c 6c 20 74 |$0001;  |{ null t|
|00000200| 65 72 6d 69 6e 61 74 65 | 64 20 73 74 72 69 6e 67 |erminate|d string|
|00000210| 20 74 79 70 65 20 7d 0d | 73 65 6c 65 63 74 4f 6e | type }.|selectOn|
|00000220| 6c 79 4f 6e 65 20 3d 20 | 24 30 30 30 32 3b 20 20 |lyOne = |$0002;  |
|00000230| 7b 20 6f 6e 6c 79 20 6f | 6e 65 20 73 65 6c 65 63 |{ only o|ne selec|
|00000240| 74 69 6f 6e 20 61 6c 6c | 6f 77 65 64 20 7d 0d 4c |tion all|owed }.L|
|00000250| 49 53 54 5f 53 45 4c 45 | 43 54 20 3d 20 24 30 30 |IST_SELE|CT = $00|
|00000260| 30 32 3b 20 20 7b 20 73 | 69 6e 67 6c 65 20 73 65 |02;  { s|ingle se|
|00000270| 6c 65 63 74 69 6f 6e 20 | 6f 6e 6c 79 20 7d 0d 0d |lection |only }..|
|00000280| 7b 20 6d 65 6d 46 6c 61 | 67 20 43 6f 64 65 73 20 |{ memFla|g Codes |
|00000290| 7d 0d 6d 65 6d 44 69 73 | 61 62 6c 65 64 20 3d 20 |}.memDis|abled = |
|000002a0| 24 34 30 3b 20 20 7b 20 | 53 65 74 73 20 6d 65 6d |$40;  { |Sets mem|
|000002b0| 62 65 72 20 66 6c 61 67 | 20 74 6f 20 64 69 73 61 |ber flag| to disa|
|000002c0| 62 6c 65 64 20 7d 0d 6d | 65 6d 53 65 6c 65 63 74 |bled }.m|emSelect|
|000002d0| 65 64 20 3d 20 24 38 30 | 3b 20 20 7b 20 53 65 74 |ed = $80|;  { Set|
|000002e0| 73 20 6d 65 6d 62 65 72 | 20 66 6c 61 67 20 74 6f |s member| flag to|
|000002f0| 20 73 65 6c 65 63 74 65 | 64 20 7d 0d 0d 54 59 50 | selecte|d }..TYP|
|00000300| 45 0d 4c 43 6f 6c 6f 72 | 54 61 62 6c 65 48 6e 64 |E.LColor|TableHnd|
|00000310| 6c 20 3d 20 5e 4c 43 6f | 6c 6f 72 54 61 62 6c 65 |l = ^LCo|lorTable|
|00000320| 50 74 72 3b 0d 4c 43 6f | 6c 6f 72 54 61 62 6c 65 |Ptr;.LCo|lorTable|
|00000330| 50 74 72 20 3d 20 5e 4c | 43 6f 6c 6f 72 54 61 62 |Ptr = ^L|ColorTab|
|00000340| 6c 65 3b 0d 4c 43 6f 6c | 6f 72 54 61 62 6c 65 20 |le;.LCol|orTable |
|00000350| 3d 20 52 45 43 4f 52 44 | 0d 20 20 20 20 6c 69 73 |= RECORD|.    lis|
|00000360| 74 46 72 61 6d 65 43 6c | 72 20 3a 20 49 6e 74 65 |tFrameCl|r : Inte|
|00000370| 67 65 72 3b 20 7b 20 46 | 72 61 6d 65 20 63 6f 6c |ger; { F|rame col|
|00000380| 6f 72 20 7d 0d 20 20 20 | 20 6c 69 73 74 4e 6f 72 |or }.   | listNor|
|00000390| 54 65 78 74 43 6c 72 20 | 3a 20 49 6e 74 65 67 65 |TextClr |: Intege|
|000003a0| 72 3b 20 7b 20 55 6e 68 | 69 67 68 6c 69 67 68 74 |r; { Unh|ighlight|
|000003b0| 65 64 20 74 65 78 74 20 | 63 6f 6c 6f 72 20 7d 0d |ed text |color }.|
|000003c0| 20 20 20 20 6c 69 73 74 | 53 65 6c 54 65 78 74 43 |    list|SelTextC|
|000003d0| 6c 72 20 3a 20 49 6e 74 | 65 67 65 72 3b 20 7b 20 |lr : Int|eger; { |
|000003e0| 48 69 67 68 6c 69 67 68 | 74 65 64 20 74 65 78 74 |Highligh|ted text|
|000003f0| 20 63 6f 6c 6f 72 20 7d | 0d 20 20 20 20 6c 69 73 | color }|.    lis|
|00000400| 74 4e 6f 72 42 61 63 6b | 43 6c 72 20 3a 20 49 6e |tNorBack|Clr : In|
|00000410| 74 65 67 65 72 3b 20 7b | 20 55 6e 68 69 67 68 6c |teger; {| Unhighl|
|00000420| 69 67 68 74 65 64 20 62 | 61 63 6b 67 72 6f 75 6e |ighted b|ackgroun|
|00000430| 64 20 63 6f 6c 6f 72 20 | 7d 0d 20 20 20 20 6c 69 |d color |}.    li|
|00000440| 73 74 53 65 6c 42 61 63 | 6b 43 6c 72 20 3a 20 49 |stSelBac|kClr : I|
|00000450| 6e 74 65 67 65 72 3b 20 | 7b 20 48 69 67 68 6c 69 |nteger; |{ Highli|
|00000460| 67 68 74 65 64 20 62 61 | 63 6b 67 72 61 6f 75 6e |ghted ba|ckgraoun|
|00000470| 64 20 63 6f 6c 6f 72 20 | 7d 0d 45 4e 44 3b 0d 4d |d color |}.END;.M|
|00000480| 65 6d 52 65 63 48 6e 64 | 6c 20 3d 20 5e 4d 65 6d |emRecHnd|l = ^Mem|
|00000490| 52 65 63 50 74 72 3b 0d | 4d 65 6d 52 65 63 50 74 |RecPtr;.|MemRecPt|
|000004a0| 72 20 3d 20 5e 4d 65 6d | 52 65 63 3b 0d 4d 65 6d |r = ^Mem|Rec;.Mem|
|000004b0| 52 65 63 20 3d 20 50 41 | 43 4b 45 44 20 52 45 43 |Rec = PA|CKED REC|
|000004c0| 4f 52 44 0d 20 20 20 20 | 6d 65 6d 50 74 72 20 3a |ORD.    |memPtr :|
|000004d0| 20 50 74 72 3b 20 7b 20 | 50 6f 69 6e 74 65 72 20 | Ptr; { |Pointer |
|000004e0| 74 6f 20 73 74 72 69 6e | 67 2c 20 6f 72 20 63 75 |to strin|g, or cu|
|000004f0| 73 74 6f 6d 20 7d 0d 20 | 20 20 20 6d 65 6d 46 6c |stom }. |   memFl|
|00000500| 61 67 20 3a 20 42 79 74 | 65 3b 20 7b 20 42 69 74 |ag : Byt|e; { Bit|
|00000510| 20 46 6c 61 67 20 7d 0d | 45 4e 44 3b 0d 0d 7b 20 | Flag }.|END;..{ |
|00000520| 54 68 65 20 4d 65 6d 52 | 65 63 20 69 73 20 66 6f |The MemR|ec is fo|
|00000530| 6c 6c 6f 77 65 64 20 62 | 79 20 6e 20 62 79 74 65 |llowed b|y n byte|
|00000540| 73 20 64 65 74 65 72 6d | 69 6e 65 64 20 62 79 20 |s determ|ined by |
|00000550| 76 61 6c 75 65 20 6f 66 | 20 6c 69 73 74 4d 65 6d |value of| listMem|
|00000560| 53 69 7a 65 20 66 69 65 | 6c 64 20 7d 0d 4c 69 73 |Size fie|ld }.Lis|
|00000570| 74 43 74 6c 52 65 63 48 | 6e 64 6c 20 3d 20 5e 4c |tCtlRecH|ndl = ^L|
|00000580| 69 73 74 43 74 6c 52 65 | 63 50 74 72 3b 0d 4c 69 |istCtlRe|cPtr;.Li|
|00000590| 73 74 43 74 6c 52 65 63 | 50 74 72 20 3d 20 5e 4c |stCtlRec|Ptr = ^L|
|000005a0| 69 73 74 43 74 6c 52 65 | 63 3b 0d 4c 69 73 74 43 |istCtlRe|c;.ListC|
|000005b0| 74 6c 52 65 63 20 3d 20 | 50 41 43 4b 45 44 20 52 |tlRec = |PACKED R|
|000005c0| 45 43 4f 52 44 0d 20 20 | 20 20 63 74 6c 4e 65 78 |ECORD.  |  ctlNex|
|000005d0| 74 20 3a 20 43 74 6c 52 | 65 63 48 6e 64 6c 3b 20 |t : CtlR|ecHndl; |
|000005e0| 7b 20 48 61 6e 64 6c 65 | 20 6f 66 20 4e 65 78 74 |{ Handle| of Next|
|000005f0| 20 43 6f 6e 74 72 6f 6c | 20 7d 0d 20 20 20 20 63 | Control| }.    c|
|00000600| 74 6c 4f 77 6e 65 72 20 | 3a 20 57 69 6e 64 6f 77 |tlOwner |: Window|
|00000610| 50 74 72 3b 20 7b 20 57 | 69 6e 64 6f 77 20 6f 77 |Ptr; { W|indow ow|
|00000620| 6e 65 72 20 7d 0d 20 20 | 20 20 63 74 6c 52 65 63 |ner }.  |  ctlRec|
|00000630| 74 20 3a 20 52 65 63 74 | 3b 20 7b 20 45 6e 63 6c |t : Rect|; { Encl|
|00000640| 6f 73 69 6e 67 20 52 65 | 63 74 20 7d 0d 20 20 20 |osing Re|ct }.   |
|00000650| 20 63 74 6c 46 6c 61 67 | 20 3a 20 42 79 74 65 3b | ctlFlag| : Byte;|
|00000660| 20 7b 20 42 69 74 20 37 | 20 76 69 73 69 62 6c 65 | { Bit 7| visible|
|00000670| 3b 20 42 69 74 20 30 20 | 73 74 72 69 6e 67 20 74 |; Bit 0 |string t|
|00000680| 79 70 65 3b 20 42 69 74 | 20 31 20 6d 75 6c 74 69 |ype; Bit| 1 multi|
|00000690| 70 6c 65 20 7d 0d 20 20 | 20 20 63 74 6c 48 69 6c |ple }.  |  ctlHil|
|000006a0| 69 74 65 20 3a 20 42 79 | 74 65 3b 20 7b 20 28 6e |ite : By|te; { (n|
|000006b0| 6f 74 20 75 73 65 64 29 | 20 7d 0d 20 20 20 20 63 |ot used)| }.    c|
|000006c0| 74 6c 56 61 6c 75 65 20 | 3a 20 49 6e 74 65 67 65 |tlValue |: Intege|
|000006d0| 72 3b 20 7b 20 46 69 72 | 73 74 20 6d 65 6d 62 65 |r; { Fir|st membe|
|000006e0| 72 20 69 6e 20 64 69 73 | 70 6c 61 79 20 7d 0d 20 |r in dis|play }. |
|000006f0| 20 20 20 63 74 6c 50 72 | 6f 63 20 3a 20 4c 6f 6e |   ctlPr|oc : Lon|
|00000700| 67 50 72 6f 63 50 74 72 | 3b 20 7b 20 41 64 64 72 |gProcPtr|; { Addr|
|00000710| 65 73 73 20 6f 66 20 6c | 69 73 74 20 64 65 66 69 |ess of l|ist defi|
|00000720| 6e 69 74 69 6f 6e 20 70 | 72 6f 63 65 64 75 72 65 |nition p|rocedure|
|00000730| 20 7d 0d 20 20 20 20 63 | 74 6c 41 63 74 69 6f 6e | }.    c|tlAction|
|00000740| 20 3a 20 4c 6f 6e 67 50 | 72 6f 63 50 74 72 3b 20 | : LongP|rocPtr; |
|00000750| 7b 20 41 64 64 72 65 73 | 73 20 6f 66 20 6c 69 73 |{ Addres|s of lis|
|00000760| 74 20 61 63 74 69 6f 6e | 20 70 72 6f 63 65 64 75 |t action| procedu|
|00000770| 72 65 20 7d 0d 20 20 20 | 20 63 74 6c 44 61 74 61 |re }.   | ctlData|
|00000780| 20 3a 20 4c 6f 6e 67 69 | 6e 74 3b 20 7b 20 4c 6f | : Longi|nt; { Lo|
|00000790| 77 20 3d 20 76 69 65 77 | 20 73 69 7a 65 3b 20 48 |w = view| size; H|
|000007a0| 69 67 68 20 3d 20 74 6f | 74 61 6c 20 6d 65 6d 62 |igh = to|tal memb|
|000007b0| 65 72 73 20 7d 0d 20 20 | 20 20 63 74 6c 52 65 66 |ers }.  |  ctlRef|
|000007c0| 43 6f 6e 20 3a 20 4c 6f | 6e 67 69 6e 74 3b 20 7b |Con : Lo|ngint; {|
|000007d0| 20 4e 6f 74 20 75 73 65 | 64 20 7d 0d 20 20 20 20 | Not use|d }.    |
|000007e0| 63 74 6c 43 6f 6c 6f 72 | 20 3a 20 50 74 72 3b 20 |ctlColor| : Ptr; |
|000007f0| 7b 20 4e 75 6c 6c 20 66 | 6f 72 20 64 65 66 61 75 |{ Null f|or defau|
|00000800| 6c 74 20 63 6f 6c 6f 72 | 73 20 7d 0d 20 20 20 20 |lt color|s }.    |
|00000810| 63 74 6c 4d 65 6d 44 72 | 61 77 20 3a 20 56 6f 69 |ctlMemDr|aw : Voi|
|00000820| 64 50 72 6f 63 50 74 72 | 3b 20 7b 20 41 64 64 72 |dProcPtr|; { Addr|
|00000830| 65 73 73 20 6f 66 20 72 | 6f 75 74 69 6e 65 20 74 |ess of r|outine t|
|00000840| 6f 20 64 72 61 77 20 6d | 65 6d 62 65 72 73 20 7d |o draw m|embers }|
|00000850| 0d 20 20 20 20 63 74 6c | 4d 65 6d 48 65 69 67 68 |.    ctl|MemHeigh|
|00000860| 74 20 3a 20 49 6e 74 65 | 67 65 72 3b 20 7b 20 4d |t : Inte|ger; { M|
|00000870| 65 6d 62 65 72 27 73 20 | 48 65 69 67 68 74 20 69 |ember's |Height i|
|00000880| 6e 20 50 69 78 65 6c 73 | 20 7d 0d 20 20 20 20 63 |n Pixels| }.    c|
|00000890| 74 6c 4d 65 6d 53 69 7a | 65 20 3a 20 49 6e 74 65 |tlMemSiz|e : Inte|
|000008a0| 67 65 72 3b 20 7b 20 42 | 79 74 65 73 20 69 6e 20 |ger; { B|ytes in |
|000008b0| 6d 65 6d 62 65 72 20 72 | 65 63 6f 72 64 20 7d 0d |member r|ecord }.|
|000008c0| 20 20 20 20 63 74 6c 4c | 69 73 74 20 3a 20 4d 65 |    ctlL|ist : Me|
|000008d0| 6d 52 65 63 50 74 72 3b | 20 7b 20 41 64 72 65 73 |mRecPtr;| { Adres|
|000008e0| 73 20 6f 66 20 66 69 72 | 73 74 20 6d 65 6d 62 65 |s of fir|st membe|
|000008f0| 72 20 72 65 63 6f 72 64 | 20 69 6e 20 61 72 72 61 |r record| in arra|
|00000900| 79 20 7d 0d 20 20 20 20 | 63 74 6c 4c 69 73 74 42 |y }.    |ctlListB|
|00000910| 61 72 20 3a 20 43 74 6c | 52 65 63 48 6e 64 6c 3b |ar : Ctl|RecHndl;|
|00000920| 20 7b 20 48 61 6e 64 6c | 65 20 6f 66 20 6c 69 73 | { Handl|e of lis|
|00000930| 74 20 63 6f 6e 74 72 6c | 6f 27 73 20 73 63 72 6f |t contrl|o's scro|
|00000940| 6c 6c 20 62 61 72 20 63 | 6f 6e 74 72 6f 6c 20 7d |ll bar c|ontrol }|
|00000950| 0d 45 4e 44 3b 0d 4c 69 | 73 74 52 65 63 48 6e 64 |.END;.Li|stRecHnd|
|00000960| 6c 20 3d 20 5e 4c 69 73 | 74 52 65 63 50 74 72 3b |l = ^Lis|tRecPtr;|
|00000970| 0d 4c 69 73 74 52 65 63 | 50 74 72 20 3d 20 5e 4c |.ListRec|Ptr = ^L|
|00000980| 69 73 74 52 65 63 3b 0d | 4c 69 73 74 52 65 63 20 |istRec;.|ListRec |
|00000990| 3d 20 52 45 43 4f 52 44 | 0d 20 20 20 20 6c 69 73 |= RECORD|.    lis|
|000009a0| 74 52 65 63 74 20 3a 20 | 52 65 63 74 3b 20 7b 20 |tRect : |Rect; { |
|000009b0| 45 6e 63 6c 6f 73 69 6e | 67 20 52 65 63 74 61 6e |Enclosin|g Rectan|
|000009c0| 67 6c 65 20 7d 0d 20 20 | 20 20 6c 69 73 74 53 69 |gle }.  |  listSi|
|000009d0| 7a 65 20 3a 20 49 6e 74 | 65 67 65 72 3b 20 7b 20 |ze : Int|eger; { |
|000009e0| 4e 75 6d 62 65 72 20 6f | 66 20 4c 69 73 74 20 4d |Number o|f List M|
|000009f0| 65 6d 62 65 72 73 20 7d | 0d 20 20 20 20 6c 69 73 |embers }|.    lis|
|00000a00| 74 56 69 65 77 20 3a 20 | 49 6e 74 65 67 65 72 3b |tView : |Integer;|
|00000a10| 20 7b 20 4d 61 78 20 56 | 69 65 77 61 62 6c 65 20 | { Max V|iewable |
|00000a20| 6d 65 6d 62 65 72 73 20 | 7d 0d 20 20 20 20 6c 69 |members |}.    li|
|00000a30| 73 74 54 79 70 65 20 3a | 20 49 6e 74 65 67 65 72 |stType :| Integer|
|00000a40| 3b 20 7b 20 42 69 74 20 | 46 6c 61 67 20 7d 0d 20 |; { Bit |Flag }. |
|00000a50| 20 20 20 6c 69 73 74 53 | 74 61 72 74 20 3a 20 49 |   listS|tart : I|
|00000a60| 6e 74 65 67 65 72 3b 20 | 7b 20 46 69 72 73 74 20 |nteger; |{ First |
|00000a70| 6d 65 6d 62 65 72 20 69 | 6e 20 76 69 65 77 20 7d |member i|n view }|
|00000a80| 0d 20 20 20 20 6c 69 73 | 74 43 74 6c 20 3a 20 43 |.    lis|tCtl : C|
|00000a90| 74 6c 52 65 63 48 6e 64 | 6c 3b 20 7b 20 4c 69 73 |tlRecHnd|l; { Lis|
|00000aa0| 74 20 63 6f 6e 74 72 6f | 6c 27 73 20 68 61 6e 64 |t contro|l's hand|
|00000ab0| 6c 65 20 7d 0d 20 20 20 | 20 6c 69 73 74 44 72 61 |le }.   | listDra|
|00000ac0| 77 20 3a 20 56 6f 69 64 | 50 72 6f 63 50 74 72 3b |w : Void|ProcPtr;|
|00000ad0| 20 7b 20 41 64 64 72 65 | 73 73 20 6f 66 20 43 75 | { Addre|ss of Cu|
|00000ae0| 73 74 6f 6d 20 64 72 61 | 77 69 6e 67 20 72 6f 75 |stom dra|wing rou|
|00000af0| 74 69 6e 65 20 7d 0d 20 | 20 20 20 6c 69 73 74 4d |tine }. |   listM|
|00000b00| 65 6d 48 65 69 67 68 74 | 20 3a 20 49 6e 74 65 67 |emHeight| : Integ|
|00000b10| 65 72 3b 20 7b 20 48 65 | 69 67 68 74 20 6f 66 20 |er; { He|ight of |
|00000b20| 6c 69 73 74 20 6d 65 6d | 62 65 72 73 20 7d 0d 20 |list mem|bers }. |
|00000b30| 20 20 20 6c 69 73 74 4d | 65 6d 53 69 7a 65 20 3a |   listM|emSize :|
|00000b40| 20 49 6e 74 65 67 65 72 | 3b 20 7b 20 53 69 7a 65 | Integer|; { Size|
|00000b50| 20 6f 66 20 4d 65 6d 62 | 65 72 20 52 65 63 6f 72 | of Memb|er Recor|
|00000b60| 64 73 20 7d 0d 20 20 20 | 20 6c 69 73 74 50 6f 69 |ds }.   | listPoi|
|00000b70| 6e 74 65 72 20 3a 20 4d | 65 6d 52 65 63 50 74 72 |nter : M|emRecPtr|
|00000b80| 3b 20 7b 20 50 6f 69 6e | 74 65 72 20 74 6f 20 66 |; { Poin|ter to f|
|00000b90| 69 72 73 74 20 65 6c 65 | 6d 65 6e 74 20 69 6e 20 |irst ele|ment in |
|00000ba0| 4d 65 6d 52 65 63 20 61 | 72 72 61 79 20 7d 0d 20 |MemRec a|rray }. |
|00000bb0| 20 20 20 6c 69 73 74 52 | 65 66 43 6f 6e 20 3a 20 |   listR|efCon : |
|00000bc0| 4c 6f 6e 67 69 6e 74 3b | 20 7b 20 62 65 63 6f 6d |Longint;| { becom|
|00000bd0| 65 73 20 43 6f 6e 74 72 | 6f 6c 27 73 20 72 65 66 |es Contr|ol's ref|
|00000be0| 43 6f 6e 20 7d 0d 20 20 | 20 20 6c 69 73 74 53 63 |Con }.  |  listSc|
|00000bf0| 72 6f 6c 6c 43 6c 72 20 | 3a 20 42 61 72 43 6f 6c |rollClr |: BarCol|
|00000c00| 6f 72 73 50 74 72 3b 20 | 7b 20 43 6f 6c 6f 72 20 |orsPtr; |{ Color |
|00000c10| 74 61 62 6c 65 20 66 6f | 72 20 6c 69 73 74 27 73 |table fo|r list's|
|00000c20| 20 73 63 72 6f 6c 6c 20 | 62 61 72 20 7d 0d 45 4e | scroll |bar }.EN|
|00000c30| 44 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 43 72 65 61 |D;.FUNCT|ION Crea|
|00000c40| 74 65 4c 69 73 74 20 28 | 20 74 68 65 57 69 6e 64 |teList (| theWind|
|00000c50| 6f 77 50 74 72 3a 57 69 | 6e 64 6f 77 50 74 72 3b |owPtr:Wi|ndowPtr;|
|00000c60| 20 6e 65 77 4c 69 73 74 | 52 65 63 50 74 72 3a 4c | newList|RecPtr:L|
|00000c70| 69 73 74 52 65 63 29 20 | 3a 20 4c 69 73 74 43 74 |istRec) |: ListCt|
|00000c80| 6c 52 65 63 48 6e 64 6c | 20 3b 0d 50 52 4f 43 45 |lRecHndl| ;.PROCE|
|00000c90| 44 55 52 45 20 44 72 61 | 77 4d 65 6d 62 65 72 20 |DURE Dra|wMember |
|00000ca0| 28 20 6d 65 6d 62 65 72 | 50 74 72 3a 4d 65 6d 52 |( member|Ptr:MemR|
|00000cb0| 65 63 50 74 72 3b 20 61 | 4c 69 73 74 52 65 63 50 |ecPtr; a|ListRecP|
|00000cc0| 74 72 3a 4c 69 73 74 52 | 65 63 29 20 3b 0d 50 52 |tr:ListR|ec) ;.PR|
|00000cd0| 4f 43 45 44 55 52 45 20 | 44 72 61 77 4d 65 6d 62 |OCEDURE |DrawMemb|
|00000ce0| 65 72 32 20 28 20 69 74 | 65 6d 4e 75 6d 62 65 72 |er2 ( it|emNumber|
|00000cf0| 3a 49 6e 74 65 67 65 72 | 3b 20 63 74 6c 48 61 6e |:Integer|; ctlHan|
|00000d00| 64 6c 65 3a 43 74 6c 52 | 65 63 48 6e 64 6c 29 20 |dle:CtlR|ecHndl) |
|00000d10| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 47 65 74 4c 69 |;.FUNCTI|ON GetLi|
|00000d20| 73 74 44 65 66 50 72 6f | 63 3a 20 4c 6f 6e 67 50 |stDefPro|c: LongP|
|00000d30| 72 6f 63 50 74 72 20 3b | 0d 50 52 4f 43 45 44 55 |rocPtr ;|.PROCEDU|
|00000d40| 52 45 20 4c 69 73 74 42 | 6f 6f 74 49 6e 69 74 3b |RE ListB|ootInit;|
|00000d50| 0d 50 52 4f 43 45 44 55 | 52 45 20 4c 69 73 74 52 |.PROCEDU|RE ListR|
|00000d60| 65 73 65 74 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |eset;.PR|OCEDURE |
|00000d70| 4c 69 73 74 53 68 75 74 | 44 6f 77 6e 3b 0d 50 52 |ListShut|Down;.PR|
|00000d80| 4f 43 45 44 55 52 45 20 | 4c 69 73 74 53 74 61 72 |OCEDURE |ListStar|
|00000d90| 74 75 70 3b 0d 46 55 4e | 43 54 49 4f 4e 20 4c 69 |tup;.FUN|CTION Li|
|00000da0| 73 74 53 74 61 74 75 73 | 20 3a 20 42 6f 6f 6c 65 |stStatus| : Boole|
|00000db0| 61 6e 20 3b 0d 46 55 4e | 43 54 49 4f 4e 20 4c 69 |an ;.FUN|CTION Li|
|00000dc0| 73 74 56 65 72 73 69 6f | 6e 20 3a 20 49 6e 74 65 |stVersio|n : Inte|
|00000dd0| 67 65 72 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |ger ;.PR|OCEDURE |
|00000de0| 4e 65 77 4c 69 73 74 20 | 28 20 6d 65 6d 62 65 72 |NewList |( member|
|00000df0| 50 74 72 3a 4d 65 6d 52 | 65 63 50 74 72 3b 20 6e |Ptr:MemR|ecPtr; n|
|00000e00| 65 77 4c 69 73 74 52 65 | 63 50 74 72 3a 4c 69 73 |ewListRe|cPtr:Lis|
|00000e10| 74 52 65 63 29 3b 0d 50 | 52 4f 43 45 44 55 52 45 |tRec);.P|ROCEDURE|
|00000e20| 20 4e 65 77 4c 69 73 74 | 32 20 28 20 64 72 61 77 | NewList|2 ( draw|
|00000e30| 50 72 6f 63 50 74 72 3a | 50 72 6f 63 50 74 72 3b |ProcPtr:|ProcPtr;|
|00000e40| 20 6c 69 73 74 53 74 61 | 72 74 3a 49 6e 74 65 67 | listSta|rt:Integ|
|00000e50| 65 72 3b 20 6c 69 73 74 | 52 65 66 3a 52 65 66 3b |er; list|Ref:Ref;|
|00000e60| 20 6c 69 73 74 52 65 66 | 44 65 73 63 3a 52 65 66 | listRef|Desc:Ref|
|00000e70| 44 65 73 63 72 69 70 74 | 6f 72 3b 20 6c 69 73 74 |Descript|or; list|
|00000e80| 53 69 7a 65 3a 49 6e 74 | 65 67 65 72 3b 20 63 74 |Size:Int|eger; ct|
|00000e90| 6c 48 61 6e 64 6c 65 3a | 43 74 6c 52 65 63 48 6e |lHandle:|CtlRecHn|
|00000ea0| 64 6c 29 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 20 |dl) ;.FU|NCTION  |
|00000eb0| 4e 65 78 74 4d 65 6d 62 | 65 72 20 28 20 6d 65 6d |NextMemb|er ( mem|
|00000ec0| 62 65 72 50 74 72 3a 4d | 65 6d 52 65 63 50 74 72 |berPtr:M|emRecPtr|
|00000ed0| 3b 20 61 4c 69 73 74 52 | 65 63 50 74 72 3a 4c 69 |; aListR|ecPtr:Li|
|00000ee0| 73 74 52 65 63 29 20 3a | 20 4d 65 6d 52 65 63 50 |stRec) :| MemRecP|
|00000ef0| 74 72 20 3b 0d 46 55 4e | 43 54 49 4f 4e 20 4e 65 |tr ;.FUN|CTION Ne|
|00000f00| 78 74 4d 65 6d 62 65 72 | 32 20 28 20 69 74 65 6d |xtMember|2 ( item|
|00000f10| 4e 75 6d 62 65 72 3a 49 | 6e 74 65 67 65 72 3b 20 |Number:I|nteger; |
|00000f20| 63 74 6c 48 61 6e 64 6c | 65 3a 43 74 6c 52 65 63 |ctlHandl|e:CtlRec|
|00000f30| 48 6e 64 6c 29 20 3a 20 | 49 6e 74 65 67 65 72 20 |Hndl) : |Integer |
|00000f40| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 52 65 73 65 74 |;.FUNCTI|ON Reset|
|00000f50| 4d 65 6d 62 65 72 20 28 | 20 61 4c 69 73 74 52 65 |Member (| aListRe|
|00000f60| 63 50 74 72 3a 4c 69 73 | 74 52 65 63 29 20 3a 20 |cPtr:Lis|tRec) : |
|00000f70| 4d 65 6d 52 65 63 50 74 | 72 20 3b 0d 46 55 4e 43 |MemRecPt|r ;.FUNC|
|00000f80| 54 49 4f 4e 20 52 65 73 | 65 74 4d 65 6d 62 65 72 |TION Res|etMember|
|00000f90| 32 20 28 20 63 74 6c 48 | 61 6e 64 6c 65 3a 43 74 |2 ( ctlH|andle:Ct|
|00000fa0| 6c 52 65 63 48 6e 64 6c | 29 20 3a 20 49 6e 74 65 |lRecHndl|) : Inte|
|00000fb0| 67 65 72 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |ger ;.PR|OCEDURE |
|00000fc0| 53 65 6c 65 63 74 4d 65 | 6d 62 65 72 20 28 20 6d |SelectMe|mber ( m|
|00000fd0| 65 6d 62 65 72 50 74 72 | 3a 4d 65 6d 52 65 63 50 |emberPtr|:MemRecP|
|00000fe0| 74 72 3b 20 61 4c 69 73 | 74 52 65 63 50 74 72 3a |tr; aLis|tRecPtr:|
|00000ff0| 4c 69 73 74 52 65 63 29 | 20 3b 0d 50 52 4f 43 45 |ListRec)| ;.PROCE|
|00001000| 44 55 52 45 20 53 65 6c | 65 63 74 4d 65 6d 62 65 |DURE Sel|ectMembe|
|00001010| 72 32 20 28 20 69 74 65 | 6d 4e 75 6d 62 65 72 3a |r2 ( ite|mNumber:|
|00001020| 49 6e 74 65 67 65 72 3b | 20 63 74 6c 48 61 6e 64 |Integer;| ctlHand|
|00001030| 6c 65 3a 43 74 6c 52 65 | 63 48 6e 64 6c 29 20 3b |le:CtlRe|cHndl) ;|
|00001040| 0d 50 52 4f 43 45 44 55 | 52 45 20 53 6f 72 74 4c |.PROCEDU|RE SortL|
|00001050| 69 73 74 20 28 20 63 6f | 6d 70 61 72 65 50 74 72 |ist ( co|mparePtr|
|00001060| 3a 56 6f 69 64 50 72 6f | 63 50 74 72 3b 20 61 4c |:VoidPro|cPtr; aL|
|00001070| 69 73 74 52 65 63 50 74 | 72 3a 4c 69 73 74 52 65 |istRecPt|r:ListRe|
|00001080| 63 29 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |c) ;.PRO|CEDURE S|
|00001090| 6f 72 74 4c 69 73 74 32 | 20 28 20 63 6f 6d 70 61 |ortList2| ( compa|
|000010a0| 72 65 50 74 72 3a 50 72 | 6f 63 50 74 72 3b 20 63 |rePtr:Pr|ocPtr; c|
|000010b0| 74 6c 48 61 6e 64 6c 65 | 3a 43 74 6c 52 65 63 48 |tlHandle|:CtlRecH|
|000010c0| 6e 64 6c 29 20 3b 0d 0d | 50 52 4f 43 45 44 55 52 |ndl) ;..|PROCEDUR|
|000010d0| 45 20 4c 69 73 74 4b 65 | 79 28 66 6c 61 67 73 3a |E ListKe|y(flags:|
|000010e0| 69 6e 74 65 67 65 72 3b | 20 76 61 72 20 65 76 65 |integer;| var eve|
|000010f0| 6e 74 3a 45 76 65 6e 74 | 52 65 63 6f 72 64 3b 20 |nt:Event|Record; |
|00001100| 63 74 6c 48 61 6e 64 6c | 65 3a 43 74 6c 52 65 63 |ctlHandl|e:CtlRec|
|00001110| 48 6e 64 6c 29 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |Hndl);.F|UNCTION |
|00001120| 43 6f 6d 70 61 72 65 53 | 74 72 69 6e 67 73 28 66 |CompareS|trings(f|
|00001130| 6c 61 67 73 3a 69 6e 74 | 65 67 65 72 3b 20 73 31 |lags:int|eger; s1|
|00001140| 2c 20 73 32 3a 53 74 72 | 69 6e 67 32 35 35 50 74 |, s2:Str|ing255Pt|
|00001150| 72 29 3a 20 49 4e 54 45 | 47 45 52 3b 0d 0d 49 4d |r): INTE|GER;..IM|
|00001160| 50 4c 45 4d 45 4e 54 41 | 54 49 4f 4e 0d 45 4e 44 |PLEMENTA|TION.END|
|00001170| 2e 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001190| 74 72 3a 50 72 6f 63 50 | 74 72 3b 20 63 74 6c 48 |tr:ProcP|tr; ctlH|
|000011a0| 61 6e 64 6c 65 3a 43 74 | 6c 52 65 63 48 6e 64 6c |andle:Ct|lRecHndl|
|000011b0| 07 4c 69 73 74 73 2e 70 | 02 00 00 00 54 45 58 54 |.Lists.p|....TEXT|
|000011c0| 4d 50 53 20 01 00 ff ff | ff ff 00 00 00 00 3d 8a |MPS ....|......=.|
|000011d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 a1 49 b4 90 00 00 | 10 f2 00 00 01 ac 20 20 |...I....|......  |
|00001200| 20 20 20 20 41 75 74 68 | 6f 72 3a 20 44 61 6e 20 |    Auth|or: Dan |
|00001210| 41 6c 6c 65 6e 0d 20 20 | 20 20 20 20 20 20 43 68 |Allen.  |      Ch|
|00001220| 65 63 6b 65 64 20 69 6e | 3a 20 4d 6f 6e 2c 20 4a |ecked in|: Mon, J|
|00001230| 75 6c 20 33 30 2c 20 31 | 39 39 30 2c 20 31 34 3a |ul 30, 1|990, 14:|
|00001240| 35 36 0d 20 20 20 20 20 | 20 20 20 54 61 73 6b 3a |56.     |   Task:|
|00001250| 20 0d 0d 20 20 20 20 4d | 31 36 2e 4e 6f 74 65 53 | ..    M|16.NoteS|
|00001260| 79 6e 2c 31 0d 20 20 20 | 20 20 20 20 20 41 75 74 |yn,1.   |     Aut|
|00001270| 68 6f 72 3a 20 44 61 6e | 20 41 6c 6c 65 6e 0d 20 |hor: Dan| Allen. |
|00001280| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 72 00 2a |...H..Mo|naco.r.*|
|00001290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012a0| 2a 2a 2a 2a 2a 2a 00 06 | 00 04 00 3c 00 24 01 53 |******..|...<.$.S|
|000012b0| 01 bd 00 3c 00 24 01 53 | 01 bd a4 a1 c8 ba 00 00 |...<.$.S|........|
|000012c0| 10 dd 00 00 10 dd 00 00 | 0d 15 01 00 00 00 00 1e |........|........|
|000012d0| 00 3c 00 24 01 53 01 bd | 00 3c 00 24 01 53 01 bd |.<.$.S..|.<.$.S..|
|000012e0| 00 00 0d 15 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00001300| df d8 0e b2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00001310| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+